Aminet 40/Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso/Aminet/mus/play/plone.lha/PLone/Install

Text File | 2000-10-20 | 4KB | 292 lines

; $VER: PLone Install Version 1.1
;

(complete 0)


(set prg-version "1.6")

;====================================================================
; Einige Initialisierungen
;====================================================================

(set file01                "PLone")

(set file03                "Gui")
(set file04                "Gui4Cli")

(set file05                "convert")
(set file07                "converter")

(set file08                "PLoneLauncher")

(set file0d                "Preview.jpg")

(set file0f                "fonts")

(set file0g                "libs/reqtools.library")
(set file0h                "libs/rexxreqtools.library")
(set file0i                "libs/rexxtricks.library")

(set file0j                "def")

(set file0p                "help")
(set file0q                "SkinsTemplate")


(set #guides-select    "Which guides should be installed?")

(set #guides-select-help
    (cat
        "Please select your favourite language that should be Copied"
    )
)

(set #intro
(cat "Welcome to PLone "prg-version". This Script copy all PLone Files."
))

(set #extro
(cat "PLone "prg-Version" is Installed.\nPlease Run the Converter to convert old PLone PlayList Files.\n\nPlease read the Doc for changes.\n\nFor Updates and News go to\nhttp://playgui.cxa.de\nor\nwww.phoenixsoft.de\n\nHave fun :)"
))

(set #select_Hadir_help
(cat "Select Destination Directory"
))

(message #intro)

(complete 10)

(set destdir
    (askdir
        (prompt "Select Destination\nNO Directory will be Created")
        (help #select_hadir_help)
        (default "ram:")
    )
)

(set @defdest (expandpath destdir))

(set skindest (tackon @defdest "Skins"))
(set defdest (tackon @defdest "def"))
(set helpdest (tackon @defdest "Help"))
(set prefdest (tackon @defdest "Pref"))
(set stempdest (tackon @defdest "SkinsTemplate"))



(if (= (exists skindest) 0 )
(
   (makedir skindest
    (help "Not avaible")
   )
))

(if (= (exists defdest) 0 )
(
   (makedir defdest
    (help "Not avaible")
   )
))

(if (= (exists helpdest) 0 )
(
   (makedir helpdest
    (help "Not avaible")
   )
))

(if (= (exists prefdest) 0 )
(
   (makedir prefdest
    (help "Not avaible")
   )
))

(if (= (exists stempdest) 0 )
(
   (makedir stempdest
    (help "Not avaible")
   )
))

(complete 20)

;-- copy PLone and .info and Launcher --

(copyfiles
          (source file01)
          (dest destdir)
          (all)
          (infos)
)

(copyfiles
          (source file08)
          (dest destdir)
          (all)
)

(complete 30)

;-- copy Gui4CLI --

(copyfiles
          (source file03)
          (dest destdir)
          (all)
)
(copyfiles
          (source file04)
          (dest destdir)
          (all)
)

(complete 40)

;-- copy converter --

(copyfiles
          (source file05)
          (dest destdir)
          (all)
          (infos)
)

(copyfiles
          (source file07)
          (dest destdir)
          (all)
)


(set guides
    (askoptions
        (prompt    #guides-select)
        (help    #guides-select-help)
        (choices
            "English"
            "Deutsch"
        )
        (default 1)
    )
)

(
    (set n 0)
    (while
        (set guide
            (select n
                "PLone_eng.guide"
                "PLone_ger.guide"
                ""
            )
        )
        (
            (if (IN guides n)
                (copyfiles
                    (prompt    "Copy guides")
                    (source    guide)
                    (dest    destdir)
                    (files)
                    (infos)
                )
            )
            (set n (+ n 1))
        )
    )
)

(complete 50)


(copyfiles
          (source file0d)
          (dest destdir)
 (all)
 (infos)
 (confirm 1)
 (prompt "Should I copy the preview picture?")
)


(copyfiles
    (source file0f)
    (dest "fonts:")
        (all)
        (confirm 1)
        (Prompt "Copy fonts?")
)

(complete 60)

(copylib
    (source file0g)
    (dest "libs:")
        (all)
;        (confirm 1)
;        (Prompt "Copy libs?")
)

(copylib
    (source file0h)
    (dest "libs:")
        (all)
;        (confirm 1)
;        (Prompt "Copy libs?")
)

(copylib
    (source file0i)
    (dest "libs:")
        (all)
;        (confirm 1)
;        (Prompt "Copy libs?")
)


(complete 70)

(copyfiles
          (source file0j)
          (dest defdest)
 (all)
)


(copyfiles
          (source "skins")
          (dest skindest)
 (all)
 (confirm 1)
 (Prompt "copy")
)



(complete 80)


(copyfiles
          (source file0p)
          (dest helpdest)
 (all)
)


(complete 90)


(copyfiles
          (source file0q)
          (dest stempdest)
 (all)
 (confirm 1)
 (Prompt "Should I Copy the Skin Templates?")
)


(complete 100)
(message #extro)